Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/wcols50.zip/ORDERS.WCX

Wildcat! WCX | 1995-04-06 | 2KB | 119 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  1676 bytes  01/29/123  04:31:52pm
'! Code Segment Size  :1106 bytes
'! Data Segment Size  :4771 bytes
'! String Segment Size:570 bytes
'! Compiled with WCC version 4.10

      Type Type26
        Filler0(1 To 8) As Byte
        s8 As String*25
      End Type

      Dim t26_4463 As Type26
      Dim l4697 As Long
      Dim s4705 As String
      Dim s4709 As String
      Dim s4717 As String
      Dim w4721 As Word
      Dim s4723 As String
      Dim s4727 As String
      Dim s4731 As String
      Dim s4735 As String
      Dim s4739 As String
      Dim s4743 As String
      Dim s4747 As String
      Dim s4751 As String
      Dim s4755 As String
      Dim s4759 As String
      Dim s4763 As String
      Dim s4767 As String

      Open "OLS.CFG" For Input As 1
      Input #1, s4709
      Input #1, w4721
      Input #1, s4723
      Input #1, s4727
      Input #1, s4731
      Input #1, s4735
      Input #1, s4739
      Input #1, s4743
      Input #1, s4747
      Input #1, s4751
      Input #1, s4755
      Input #1, s4759
      Input #1, s4763
      Close 1
      s4767 = "5.0"
      StatusOpen 1
      StatusWrite "    Online Store   v" + s4767 + "    COPYRIGHT (C) 1995  Online Real Estate Consulting", 1213417543, 1213417543, 1213417543
      Locate 20, 1
      If UCase(User.SecLevel) = "SYSOP" Then
      Else
  246   If UCase(User.SecLevel) = s4727 Then
        Else
  277     If UCase(User.SecLevel) = s4731 Then
          Else
  308       If UCase(User.SecLevel) = s4735 Then
            Else
  339         If UCase(User.SecLevel) = s4739 Then
              Else
  370           If UCase(User.SecLevel) = s4743 Then
                Else
  401             If UCase(User.SecLevel) = s4747 Then
                  Else
  432               If UCase(User.SecLevel) = s4751 Then
                    Else
  463                 If UCase(User.SecLevel) = s4755 Then
                      Else
  494                   If UCase(User.SecLevel) = s4759 Then
                        Else
  525                     If UCase(User.SecLevel) = s4763 Then
                          Else
  556                       Color 14, 0
                            Print "Your present security level does not permit this selection."
                            Delay 3
                            Chain s4709 + "VIEWOLS.WCX", ""
                          End If
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
      End If
  598 s4717 = InputMask("Please enter your system password:  ", "XXXXXXXXXXXXXX", "", 1)
      If UCase(s4717) <> UCase(User.Password) Then
        Chain s4709 + "VIEWOLS.WCX", ""
      End If
  669 Print ""
      Locate 20, 54
      l4697 = InputNumber("@0E@Store Number:  ", 1, 99999999)
      Open s4709 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
      Get 1, l4697, t26_4463 '! 218 bytes
      Close 1
      If UCase(User.Name) <> UCase(t26_4463.s8) Then
        Chain s4709 + "VIEWOLS.WCX", ""
      End If
  804 s4705 = s4709 + Str(l4697) + "\"
      If Exists(s4705 + "ORDERS.TXT") Then
        If InputYesNo("Would you to download your @[e-mail] @0E@file?                                ", 1213417543) Then
          GoTo 965
        Else
  880     Locate 20, 50
          Print "Download cancelled.  "
          Delay 3
          Chain s4709 + "VIEWOLS.WCX", ""
        End If
  923 Else
  929   Print "You have no orders.                                                            "
        Delay 3
        Chain s4709 + "VIEWOLS.WCX", ""
      End If
  965 SendFile(s4705 + "ORDERS.TXT", 1213417543)
      Del s4705 + "ORDERS.TXT"
      Chain s4709 + "VIEWOLS.WCX", ""